home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 40
/
64er_Magazin_Sonderheft_40_19xx_Markt__Technik_de.d64
/
demo 3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
553b
|
18 lines
100 rem rechenuebungen
110 ti$="000000"
120 a=int(rnd(1)*10)+2:b=int(rnd(1)*10)+2:c=int(rnd(1)*10)+20
130 ifa*b+c>100then120
140 printa"*"b"+"c"= ?
160 [133]"antwort";a%:l%[178]a[172]b[170]c
170 [139]a%[178]l%[167][153]"onrichtig":r[178]r[170]1:[137]190
180 [153]"onfalsch loesung:";l%:f[178]f[170]1
190 [139]ti[179]3600[167] 120:[143] eine minute
200 [153]"sie haben";r;"aufgabe(n) geloest"
210 [139]f[177]1[167][153]"sie machen zu viele fehler!"
220 [139]f[179]2[167][153]"sie koennen richtig rechnen"
230 [139]r[179]10[167][153]"sie muessen schneller werden!!"
240 [139]r[177]9[167][153]"sie koennen schnell rechnen"
250 [153]"noch einmal [j/n]"
260 [161] a$:[139]a$[178]""[167]260
270 [139]a$[179][177]"n"[167][138]